home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / role / HammyTown.lha / 4.room < prev    next >
Text File  |  1997-10-22  |  7KB  |  177 lines
  1. /*                     This is a room file for GRAAL
  2. /*
  3. /*                                 4.room
  4. /* RF 1=0 first visit
  5. /* RF 2=1 when crap tape has been played in Onkshewa!
  6.  
  7. /* UPDATE: scroll_frames;normal_frames
  8. /*
  9. UPDATE: 3;1
  10.  
  11. /* SECTION: section number
  12. SECTION: 1
  13.  
  14. /* BG_IFF: filename
  15. /*
  16. BG_IFF: 4BG.IFF
  17.  
  18. /* START_POS: sposno;bobimage;x;y;camera;floor
  19. /*
  20. START_POS: 1;13;30;84;L;1
  21.  
  22. /*FLOOR: floorno;x1;y1;x2;y2;floormap/.../floormap
  23. /*
  24. FLOOR: 1;0;82;319;118;1-1
  25.  
  26. /* EXIT: no;x1;y1;x2;y2;epointx;epointy;description
  27. /*
  28. EXIT: 1;17;38;43;81;31;82;street
  29.  
  30. /* CLPART: filename
  31. /*
  32. CLPART: 3FG.IFF
  33.  
  34. /* ROOMBOBS: no_of_imgs;startrbob;grabx;graby;width;height;xoffset;hotsp
  35. /*
  36. /* 1-7 is the shop owner
  37. ROOMBOBS: 7;1;95;8;17;43;17;0
  38. /* 8 is the onkshewa system
  39. ROOMBOBS: 1;8;170;61;59;29;0;0
  40. /* 9 is the CD.
  41. ROOMBOBS: 1;9;234;68;27;23;18;0
  42.  
  43. /* STATIC: bobno;LBOBimage;putx;puty
  44.  
  45. /* ANIM: bobno;bobimg;amalchannel;amalsequence;putx;puty
  46.  
  47. /* ROOMOBJ: roomobjno,object_definition.... (see graal.main documentation)
  48. /*
  49. ROOMOBJ: 1;Onkshewa System;4;VIS;51;RBOB8;202;57;-12;25;11; ;NPICK; ;8; ;HIGH;TD;a; ; 
  50.  
  51. /* DACT: condition;...;action;...
  52. /*
  53. /* Light up scene
  54. DACT: TRACK NO;LIGHTS ON
  55. DACT: IFRF 1=0;SAY This shop looks pretty dull.;SETRF 1=1;EXIT
  56.  
  57. /* LINE: dlgno;lineno;line;reuseline;conditions
  58. /*
  59. /*   Specifies a line of dialogue
  60. /*
  61. /* LACT: dlgno;lineno;action;...;action
  62. /*
  63. /* 2 is shopkeeper dialogue
  64. /*
  65. LINE: 2;1;I think I'll just look round.;Nothing. Forget it.; 
  66. LACT: 2;1;IFOF 1=0;RESP R,2,Okay. Talk to me again if you see anything you like.;SETOF 1=1;EDLG;EXIT
  67. LACT: 2;1;IFOF 1=1;RESP R,2,Okay. Happy bargain hunting!;EDLG;EXIT
  68. /*
  69. LINE: 2;2;There aren't many goods in this shop.; ;IFOF 10,1=0
  70. LACT: 2;2;RESP R,2,Well, we've sold most of our stuff in the sale!;RESP R,2,All we have left is the Onkshewa system and one CD.;RESP R,2,Perhaps I should get some more stock soon.;DSET 2,N2,+1
  71. /*
  72. LINE: 2;3;Why are you blue?; ; 
  73. LACT: 2;3;RESP R,2,Because I'm an alien!;RESP R,2,Honestly!;RESP R,2,Well, that or it's cold in here.
  74. LACT: 2;3;DSET 2,N3,+1,+5
  75. /*
  76. LINE: 2;4;Let's talk about your merchandise.;Let's talk about some of your merchandise again.; 
  77. LACT: 2;4;RESP R,2,Well, what are you interested in?;DSET 2,S1,+6,+7,+8,+9,+12
  78.  
  79. LINE: 2;5;Why does your head disappear sometimes?; ; 
  80. LACT: 2;5;RESP R,2,No real reason.;RESP R,2,Except that it would be a shame to waste those animation frames!
  81. LACT: 2;5;DSET 2,N5;EXIT
  82. /*
  83. LINE: 2;6;How much is that Onkshewa system?;How much was that Onkshewa system again?; 
  84. LACT: 2;6;RESP R,2,That Onkshewa system...;RESP R,2,It's a bargain at £40!
  85. LACT: 2;6;SETOF 9,2=1;DSET 2,S2,+10,+11
  86.  
  87. LINE: 2;7;That Onkshewa system is really crap!;Still not sold that crap Onkshewa system?;IFNOTCARR 13
  88. LACT: 2;7;RESP R,2,No it's not crap!;RESP R,2,It plays music, doesn't it?;SAY Yes, but what about Sound Quality?
  89. LACT: 2;7;RESP R,2,What does that matter as long as you can hear the music?;SAY Oh dear.;SAY It matters, alright?!;RESP R,2,Well, I like it, anyway.;DSET 1,-7
  90.  
  91. LINE: 2;8;What's that CD?;What was that CD again?;IFNOTCARR 10
  92. LACT: 2;8;RESP R,2,It's "Turbo Guitar", a drowned-by-guitar track by Jools.;RESP R,2,£2 to you.;RESP R,2,If I can sell all of this stuff, I can close up and go home.;DSET 2,-8,+12
  93.  
  94. LINE: 2;9;Actually, I don't want to talk about merchandise.;Actually, I don't want to discuss merchandise any more.; 
  95. LACT: 2;9;RESP R,2,Okay. Let's not.;DSET 2,R1
  96.  
  97. LINE: 2;10;I haven't got that much money on me at the moment.;I still haven't got that much money.; 
  98. LACT: 2;10;RESP R,2,Sorry, you can't have it then.;DSET 2,R2
  99.  
  100. LINE: 2;11;Fourty quid? What a rip off!;Forty quid? What a rip off!; 
  101. LACT: 2;11;SAY I wouldn't even give you forty pence for it!;RESP R,2,Keep your hair on!;DSET 2,R2
  102.  
  103. LINE: 2;12;I'd like to buy that CD, I've got the money!; ;IFCARR 13
  104. LACT: 2;12;RESP R,2,Sure thing.;HANDLE;W 25;HANDLE -1;W 5;REMOVE 13,N,0
  105. LACT: 2;12;RESP R,2,Okay, now it's yours.
  106. LACT: 2;12;SETOF 10,1=1;DSET 2,-12
  107.  
  108.  
  109. /* Room actions follow below ***
  110. /*
  111. /* ACTION: verbno;condition;...;command;...
  112.  
  113. /*
  114. /* Action 0 - Exit
  115. /* ===============
  116. /*
  117. ACTION: 0;IFOBJ 1;MEXIT;GOTO 2,3
  118. /*
  119. /* Action 1 - Give
  120. /* ===============
  121. /*
  122.  
  123. ACTION: 1;IFOBJ 13;IFOBJ2 2;SAY I'll talk to him.;OBJ1 2;VERB 5;REDO;EXIT
  124. /*
  125. /* Action 2- Pick up
  126. /* =================
  127. /*
  128.  
  129. ACTION: 2;IFOBJ 10;IFCARR 13;SAY I'd better talk to him about it first.;OBJ1 2;VERB 5;REDO;EXIT
  130. ACTION: 2;IFOBJ ROBJ1;SAY I haven't got enough cash to buy it.;SAY Not that I'd want to buy it anyway.;EXIT
  131. ACTION: 2;IFOBJ 10;IFOF 1=0;SAY I haven't got any money to buy it with!;EXIT
  132. /*
  133. /* Action 3 - Use
  134. /* ==============
  135. /*
  136. ACTION: 3;IFOBJ ROBJ1;MOBJ;W 5;TRACK MUSIC.03.MOD,LOOP,NOFILTER;SAY Yuk! That sounds AWFUL! I'll turn it off.;W 30;TRACK NO;EXIT
  137. ACTION: 3;IFOBJ 10;IFOBJ2 ROBJ1;SAY This dodgy Onkshewa system won't accept CDs;SAY Only muffley tapes.;EXIT
  138.  
  139. ACTION: 3;IFOBJ 29;IFOBJ2 ROBJ1;MOBJ ROBJ1;TRACK MUSIC.08.MOD,LOOP,FILTER;REMOVE 29,U,0;SAY Urgh!;RESP R,2,Can you turn that horrible racket off?;SAY Pardon?;RESP R,2,I said, can you turn that horrible racket off?;SAY Can't hear you. I'll come over.
  140. ACTION: 3;IFOBJ 29;IFOBJ2 ROBJ1;MOBJ 2;SAY Now, what did you say?;RESP R,2,I said, can you turn that row off, please?;SAY I thought you liked really low quality stuff!;RESP R,2,Well, even I have my limits!;SAY Why can't you turn it off yourself?
  141. ACTION: 3;IFOBJ 29;IFOBJ2 ROBJ1;RESP R,2,Because I'm glued to the floor with the cold. You'll have to turn it off yourself.;SAY What will you give me if I do?;RESP R,2,I'll give you these sunflower seeds.
  142. ACTION: 3;IFOBJ 29;IFOBJ2 ROBJ1;SAY Okay then.;HANDLE ROBJ1;GET 31,U;W 25;HANDLE -1;MOBJ ROBJ1;SAY I can't stop it. You'll have to wait until the tape runs out!;RESP R,2,Oh no!;SETRF 2=1;EXIT
  143.  
  144. /*
  145. /* Action 4 - Open
  146. /* ===============
  147. /*
  148. ACTION: 4;IFOBJ 10;SAY Yeah, the CD is inside the case.;EXIT
  149. ACTION: 4;IFOBJ ROBJ1;SAY I can't open the tape deck: A tape is stuck in it!;EXIT
  150.  
  151. /* Action 5 - Talk to
  152. /* ==================
  153. /*
  154. ACTION: 5;IFOBJ 2;IFOF 1=0;MOBJ;SAY Hello.;RESP R,2,Can I help you?;DSET 2,+2,+3,+4;EXIT
  155. ACTION: 5;IFOBJ 2;IFOF 1=1;MOBJ;SAY Hello again.;RESP R,2,Seen anything you fancy?;DSET 2;EXIT
  156. /*
  157. /* Action 6 - Push
  158. /* ===============
  159. /*
  160. ACTION: 6;IFOBJ ROBJ1;VERB 3;REDO;EXIT
  161. /*
  162. /* Action 7 - Close
  163. /* ================
  164. /*
  165. /* Action 8 - Look at
  166. /* ==================
  167. /*
  168. ACTION: 8;MOBJ
  169. ACTION: 8;IFOBJ ROBJ1;SAY It's an Onkshewa system.;SAY Yuk!;EXIT
  170. ACTION: 8;IFOBJ 10;SAY It says "Turbo Guitar" on it.;EXIT
  171. /*
  172. /* Action 9 - Pull
  173. /* ===============
  174. /*
  175. /* End of room file. Some comments must be here, otherwise  the last command
  176. /* line is missed out!
  177.